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INTRODUCTION 



Simple number games and puzzles are used frequently by beginning 
computer hobbyists. While some computer enthusiasts develop computer 
systems that monitor environmental conditions, compute Income tax, or 
serve as expensive burglar alarms, most continue to use their computers 
primarily for recreation. This booklet Is designed for the person who 
1s beyond the simple number-game stage of software development and would 
like to develop some Interesting simulations. 

The programs are written so that the computer does not do all the 
"thinking" but forces the player to develop strategies for achieving the 
objectives. A general overview of a simulation Is Illustrated In the 
flowchart below. 
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The simulations presented 1n this booklet are written In BASIC and 
can be easily adapted to almost any system. The programs vary from 500 to 
2,000 bytes or 40 to 100 lines of BASIC. Some of the lines have multiple 
statements; but, since the line numbers are multiples of ten, 1t would be 
easy to modify the program to operate with single statements. All of the 
line numbers with a unit's digit of five can be deleted without affecting 
the program. 

Each simulation begins with a scenario describing the rules, condi- 
tions and objectives to be achieved. The rules have been written 1n third 
person, because some programmers like to condense the rules and place them 
In a subroutine for access by the operator. A sample run and a general 
flowchart with line numbers provide additional Information about each 
program. A description of the variables precedes the program listing. 
Some program modifications are suggested. The minor modifications require 
only adjustments of variables 1n specific lines, while major modifications 
require additional programming. In some cases, supplemental playing 
boards, graphs, and charts are supplied for recording Information on the 
progress of the simulation. 

A brief description of each program 1s given below. 

1. A rt Auctio n (48 lines) 

One buys and sells paintings to make a maximum profit. 
This Is a fast simulation and does not require extra 
materials. 

2. Monster Chase (48 lines) 

A monster is chasing a victim 1n a cage. The victim 
must elude the monster for ten moves to survive. It 
1s a fairly quick simulation that does't require too 
much thinking. 

3. Lost Treasure (74 lines) 

A map of an Island that contains treasure 1s presented. 
The adventurer travels over different terrain with a 
compass that Isn't very accurate 1n an attempt to find 
the treasure. This Is a short simulation that requires 
about 15 moves. A map 1s provided. 

4. Gone Fishing (83 lines) 

The objective Is to catch a lot of fish during a 
fishing trip. Half of the catch spoils 1f the time 
limit Is exceeded, time Is lost In a storm, and the 
boat sinks if it Is guided off of the map. There 
are also sea gulls and sharks to watch. A chart Is 
needed to keep track of good fishing spots. 

5. Space Flight (68 lines) 

The task is to deliver medical supplies to a distant 
planet while trying to stay on course without 
running out of fuel. Graph paper 1s required to 
plot the course. 

6. Forest F1 r e (77 lines) 

The objective 1s to subdue a forest fire with 
chemicals and backfires. Because the output 1s a 
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9X9 grid, ■ fast baud rate to the terminal 1s desirable. 
The success of a firefighter 1s based on the t1mt needed 
to control the fire and completely extinguish 1t. 

7. Nautical Navigation (70 lines) 

This simulation requires the navigation of a sailboat 
to three different Islands, using a radio direction 
finder. The wind direction 1s an Important variable. 
Graph paper, protractor and ruler are needed to plot 
the course. 

8. Business Management (92 lines) 

In this simulation, raw materials are bought and 
finished products *re produced and sold. The cost of 
materials and production and the selling price vary 
each month. The objective Is to maximize the profits. 
No extra materials are required. 

9. Rare Bi rds (75 lines) 

This Is a bird watching simulation. The objective 1s 
to Identify as many different birds as possible. A 
record of those Identified 1s helpful and a bird 
watching chart is provided. 

10. Diamond Thief (83 lines) 

One assumes the role of a detective In this simulation. 
A thief has just stolen a diamond from a museum. Five 
suspects must be questioned to determine the thief. A 
floor plan of the museum and a chart Indicating suspects 
and times are provided. 

In addition to extending the simulations In this booklet, one might 
try combining some of them. For example: one could take the money 
earned In Art Auction to start the Business Manageme nt simulation. After 
twelve months of business, the profits could be used to buy a boat 
to use In the Gone Fishing simulation. A large boat could survive storms, 
hold more fish, and allow fishing 1n deeper water. The ultimate objective 
could be to catch the most fish. 

The computer hobbyist 1s limited only by the Imagination 1n simulat- 
ing real events. It 1s the author's desire that this booklet provide some 
fun and, at the same time, stimulate further development of creative 
simulations. Some additional Ideas for simulations are suggested below: 

1. Hunt Big Foot 

2. Race a Sailboat 

3. Inhibit the Andromeda Strain 

4. Stop the African Bee Invasion 

5. Climb Mountains 

6. Survive in the Wilderness 

7. Find Gold or 011 

8. Swim from Jaws 

9. Dispatch Airplanes, Trains, or Trucks 

10. Herd Sheep 

11. Explore Caves 

12. Catch Butterflys 
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ART AUCTION 



Scenario 



In this simulation, you will be given an opportunity to buy and sell 
up to five paintings. The objective Is to make a large profit by buying 
the paintings for as little as possible and selling them for as much as 
possible. 

In order to buy a painting, you must bid against a secret bid made 
by another buyer. When a painting Is offered for sale, three numbers will 
be given that represent the mean and range of bids for this particular 
painting. For example, "200 300 400" Indicates that the mean bid price 
for the painting 1s 300, and about 70X of the time the price will be 
between 200 and 400. {Note that higher priced paintings tend to have a 
larger range of prices.) 

After you buy your paintings, you will be given an opportunity to 
sell them. You will receive from one to five offers, but you do not know 
1n advance how many offers will be made. The offers will be, on the 
average, 50 higher than the bids made during the buying phase. If you do 
not accept an offer, and It Is the last one, then the offer will be 
automatically processed. Sometimes 1t will be wise to accept an offer 
that Is less than the purchase price rather than gamble on a higher offer 
that does not materialize. 

When all of the paintings that you have bought have been sold, you 
will be given your total profit for all of the transactions. 



Sample Run 



BUY PAINTING 1 
PRICES: 546 553 560 
YOUR BID? 560 
OPPONENT BID 565. 
YOU WERE OUT BID. 

BUY PAINTING 2 
PRICES: 336 449 562 
YOUR BIO? 400 
OPPONENT BID 440. 
YOU WERE OUT BIO. 

BUY PAINTING 3 
PRICES: 213 288 363 
YOUR BID? 300 
OPPONENT BID 324 
YOU WERE OUT BID. 

BUY PAINTING 4 
PRICES: 403 514 625 
YOUR BID? 600 
OPPONENT BID 497. 
YOU BOUGHT IT. 



BUY PAINTING 5 
PRICES: 274 346 417 
YOUR BID? 350 
OPPONENT BID 311. 
YOU BOUGHT IT. 

SELL PAINTING 4 
YOU BOUGHT IT FOR 600. 
AVERAGE OFFER IS 564. 
OFFER 1 IS 649. 
ACCEPT? Y 

SELL PAINTING 5 
YOU BOUGHT IT FOR 350. 
AVERAGE OFFER IS 396. 
OFFER 1 IS 365. 
ACCEPT? N 



YOUR PROFIT IS 
PLAY AGAIN? 



64. 



ART AUCTION PROGRAM 



Variables 



P(5) Prices 

S (5) Price range 

F(5) Set flag If painting Is bought 

CB Opponent's bid 

YB Your bid 

I.J.K Indices 

P Profit 

N Nunfcer 

Dividend 

Q Quotient 



Program Listing 

5 REM SET PRICES AND RANGES 

10 DIM P{S),S(5),F{5) 

20 FOR 1-1 TO 5 

30 P(I)«10O*INT(9O0*RND(l)) 

40 S{I)-INT(P<I)*RND(1)) 

50 IF P(I)<500 THEN S(I)-INT(P(I)*.7*RND(1 )) 

60 F(I)-0 

70 NEXT I 

95 REM BUY PAINTINGS 

100 FOR 1-1 TO 5 

T10 GO SUB 500 

120 PRINT: PRINT "BUY PAINTING"; I : PRINT: PRINT 

130 PRINT "PRICES:"; INT(P(I)-.5*S(I)) ; P{I); INT(P(I)+.5*S(I)) 

HO PRINT: PRINT: INPUT "YOUR BID"; YB 

150 PRINT "OPPONENT'S BID"; CB; "." 

160 IF YB>CB THEN PRINT "YOU 80UGHT IT.": F(I)-YB: GO TO 180 

170 PRINT "YOU WERE OUT BID." 

180 NEXT I 

195 REM SELL PAINTINGS 

200 FOR 1-1 TO 5 

210 IF F(I)-0 THEN 310 

220 FOR K-l TO INT(5*RND(1 )) 

230 GO SUB 500: CB-CB+INT(100*RND(1 )) 

240 PRINT "SELL PAINTINGS"; I 

250 PRINT "YOU BOUGHT IT FOR"; F{I): PRINT "AVERAGE OFFER IS"; 

P(I)*50 

260 PRINT "OFFER"; K; "IS"; CB; "." 

270 INPUT "ACCEPT"; Y$ 

280 IF Y$-"Y" THEN 300 

290 NEXT K 

300 P-P+CB-F(I) 

310 NEXT I 

320 PRINT: PRINT "YOUR PROFIT IS"; P; "." 

330 INPUT "PLAY AGAIN"; Y$ 

340 IF Y$-"Y" THEN RUN 

350 END 
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495 REM NORMAL DISTRIBUTION SUBROUTINE 

500 W) 

510 N-INT(65536*RND(1)) 

520 FOR J-l TO 16 

530 Q-INT(N/2) 

540 D-D*2*(N/2-Q) 

550 N-Q 

560 NEXT J 

570 CB-P(I)*S(I)*(D-8)/8 

580 CB-CB*20*RND(1) 

590 CB-INT(CB) 

600 RETURN 



ART AUCTION MODIFICATIONS 



Minor 



1. Nurter of paintings -- lines 10, 20, 100, 200 

2. Starting prices -- Une 30 

3. Price spread — lines 40, 50 

4. Built-in profit -- lines 230. 250 

5. Error 1n price range -- Une 580 

6. Nunfcer of offers -- line 220 



Major 



1. 
2. 

3. 



Have one or more of the paintings a forgery that Is worth nothing 
Have one or imre of the paintings that have a low purchase price 
be very valuable. 
Have were opponents bid against you. 




ART AUCTION FLOWCHART 
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MONSTER CHASE 



Scenario 



In this simulation you are locked in a cage with a hungry monster 
who has a life span of ten turns. Your movement and that of the monster 
takes place on a 5X5 grid. You may move north, east, south, or west by 
entering H, E, S, or W. If you enter any other letter, you will remain 
in the same place. 

The monster Is programmed to move along one of the arrows toward 
you as shown below ; 



k 



% 



k 
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Your only means of survival 1s to outwit the monster for ten turns. 
Sample Run 

M 

! . ! m . . . . . . 

. Y M . . 



. M 

'. Y 



MOVE 1 MOVE 4 MOVE 7 

DIRECTION? W DIRECTION? H DIRECTION? H 



. M 


• • 








Y . 



MOVE 2 
DIRECTION? N 









M . . 
. Y . 



MOVE 3 
OIRECTION? S 



. M 
Y . 



MOVE 5 
DIRECTION? H 



. Y . M . 
MOVE 6 
DIRECTION? N' 



Y M . . . 



MOVE 8 
DIRECTION? N 

EATEN 

PLAY AGAIN? 



MONSTER CHASE PROGRAM 



Variables 

Kl.J) 

R.C 
X.Y 
L,M 

M$ 
D 

T 



Grid location 
Your row and colunn 
Monster's row and column 
Temporary variables 
Your move (N.E.S.W.O) 
Direction of the monster (1-8) 
Turns (1-10) 



Listing 

5 
10 
20 
30 

35 

40 

50 

60 

70 

80 

90 

100 

110 

120 

210 
220 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 



REM SET CONDITIONS 

X-l: Y-l 

R-5: C-5 

FOR T-1 TO 10 



REN DISPLAY GRID 
FOR 1-1 TO 5 
FOR J-l TO 5 
PRINT TAB(8) 
IF I-X AND J-Y 
IF I-R AND J-C 
PRINT "."; 
NEXT J 
PRINT 
NEXT I 



THEN PRINT 
THEN PRINT 



*M";: 
•Y";: 



GO TO 100 
GO TO 100 



7:7:7 "MOVE NUMBER"; T 

INPUT "DIRECTION (NESWO)"; M$ 

IF M$-"N" THEN R-R-1 

IF M$-"E" THEN C-C+l 

IF M$-"S H THEN R-R+l 

IF H$-"W" THEN C-C-1 

IF R*C-0 OR R>5 OR C>5 THEN PRINT 

IF R-X AND Y-C THEN PRINT "EATEN": 

IF X-R AND Y<C THEN D-l 

IF X>R AND Y<C THEN D-2 

IF X>R AND Y-C THEN D-3 

IF X>R AND Y>C THEN D-4 

IF X-R AND Y>C THEN D-5 

IF X<R AND Y>C THEN D-6 

IF X<R AND Y-C THEN D-7 

IF X<R AND Y<C THEN D-8 

0-D*INT(3*RND(l)-l) 

IF D-0 THEN D-8 

IF D-9 THEN D-l 

IF D>1 AND D<5 THEN X-X-1 

IF D>5 THEN X-X+l 

IF D>3 AND D<7 THEN Y-Y-l 

IF D<3 OR D-8 THEN Y-V+l 

IF X-0 THEN X-X+l 

IF Y-0 THEN V-Y+l 

IF X-6 THEN X-X-1 

IF Y-6 THEN Y-Y-l 



"OUT OF BOUNDS' 
GO TO 520 



GO TO 520 



490 IF X-R AND Y-C THEN PRINT "EATEN": GO TO 520 

500 NEXT T 

510 PRINT "YOU SURVIVED!" 

520 INPUT "PLAY AGAIN"; Y$ 

530 IF Y$-"Y" THEN RUN 

540 ENO 



MONSTER CHASE MODIFICATIONS 



Minor 



1. Grid size — lines 20, 40, 50, 280, 470, 480 

2. Turns to win -- line 30 



1 . Have more than one monster. 

2. Chase a little monster while a big monster tries to get you. 

3. Have the monster fall In quicksand. 

4. Require food 1n order to maintain energy. 




MONSTER CHASE FLOWCHART 
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LOST TREASURE 



Scenario 

You have landed somewhere on an Island that has treasure, woods, 
mountains, a cave, a bluff, an oak tree, and, of course, sea water all 
around. Your objective 1s to find the treasure as quickly as possible 
without falling into the shark-Infested water. 

You can move north (N), east (E), south (S), or west (W) one square 
at a time. Your compass, however, Is not very accurate. There 1s only an 
805 chance that you will move 1n the Intended direction. There 1s a 20$ 
chance you will move diagonally to the left or to the right. Each time 
that you move you will receive feedback regarding the type of terrain on 
which you are traveling. 

If you fall Into the sea, you will be placed back on the square 
occupied prior to your unfortunate move, unless you disturb the sharks. 
The chance that the sharks will eat you the first tlwe you fall 1n Is 2M. 
The second time you fall 1n the chance of being eaten Is 70S. The third 
time you fall In will be your last! 

Since you have a map of the Island, you will be able to determine 
your approximate position. For example, 1f you are 1n the woods and you 
move east two squares and find that you are 1n mountains, then you are 
most likely located 1n the north-east comer of the Island. The reason 
you can't be sure of the exact location 1s that you may have veered off to 
the right or left. With practice, you should be able to find the treasure 
1n less than fifteen moves. 



YOU ARE IN THE CLEAR. 

MOVE(HESW)? S 

YOU FELL INTO THE OCEAN. 

EATEN BY SHARK. 

PLAY AGAIN Y OR N? Y 

YOU ARE IN THE CLEAR. 
MOVE(HESW)? S 

YOU ARE IN THE WOODS. 
MOVE(NESW)? N 



YOU ARE IN THE MOUNTAINS. 
MOVE(NESW)? E 



YOU ARE IN THE WOODS. 
MOVE(NESW)? S 



YOU ARE IN THE CLEAR. 
MOVE(NESW)? E 

YOU FOUND THE TREASURE IN 9 MOVES. 
PLAY AGAIN Y OR N? 



LOST TREASURE FLOWCHART 
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LOST TREASURE MAP 
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LOST TREASURE PROGRAM 



Variables 

L(R.C) 
S 



R 
C 
RT, 

T 



Listing 

5 

10 

20 

30 

40 

50 

60 
70 

80 
90 



CT 



Locations 

Probability of being eaten by shark 

Your row 

Your column 

Temporary storage 

Number of turns 



REM SET TERRAIN 

DIM 1(9,9) 

S-.2 

FOR 1-1 TO 9: FOR J-l 

L(I,J)-0 

NEXT J, I 

FOR W TO 6 

READ R.C 
L(R,C)-1 
NEXT I 



100 FOR 1-1 TO 6 

110 READ R.C 

120 L(R,C)-2 

130 NEXT I 

140 L(l,8)-3 

150 L(6,l)-4 

160 L(9,6)-5 

170 L(5,5)-6 . 



175 REM YOUR LOCATION 

180 R-INT(9*RND(1)+1) 

190 C-INT(9*RND(1H) 

200 IF SqR(R-5)+2+(C-5h2)<2 THEN 180 

205 REM START MAIN LOOP 

210 FOR T-l TO 100 

220 PRINT "YOU ARE "; 

230 J-L(R,C)+1 

240 ON J GO SUB 250,260,270,280,290,300: 

250 PRINT "IN THE CLEAR.": RETURN 

260 PRINT "IN THE MOODS.": RETURN 

270 PRINT "IN THE MOUNTAINS.": RETURN 

280 PRINT "NEAR A CAVE.": RETURN 

290 PRINT "ON A BLUFF.": RETURN 

300 PRINT "NEAR AN OAK TREE.": RETURN 

310 INPUT "MOVE(NESW)"; M$ 

320 RT-R: CT-C 

330 IF M$-"N" THEN R-R-l : GO SUB 380 

340 IF M$-"E" THEN C-C+l : GO SUB 420 

350 IF M$»"W" THEN C-C-l : GO SUB 420 

360 IF M$-"S" THEN R-R+l: GO SUB 380 




GO TO 310 



370 GO TO 460 

375 REM HOVE SUBROl/TINE 

380 J-INT(10*RH0OM) 

390 IF J>2 THEN RETURN 

400 IF J-l THEN OC+1 : RETURN 

410 C-C-l: RETURN 

420 J-INT(10*RND(1)*1) 

430 IF J>2 THEN RETURN 

440 IF J-l THEN R-R+l : RETURN 

450 R-R-l: RETURN 

455 REM IN OCEAN, FOUND TREASURE? 

460 IF R<1 OR R>9 OR C<1 OR C>9 THEN 490 

470 IF L(R,C)»6 THEN PRINT "YOU FOUND THE TREASURE IN"; T: GO TO 550 

480 NEXT T 

490 PRINT "YOU FELL INTO THE OCEAN." 

500 IF RND(1)<S THEN PRINT "EATEN BY SHARKS1": GO TO 550 

510 S-S+.5: R-RT: C-CT: IF S>1 THEN S-l 

520 PRINT "THE PROBABILITY OF BEING EATEN" 

530 PRINT "BY A SHARK NEXT TIME IS"; S; "." 

540 GO TO 480 

550 INPUT "PLAY AGAIN"; Y$ 

560 IF Y$-"Y" THEN RUN 

570 END 

580 DATA 2,3,3,5,3,9,4,1,7,2,8,8 

590 DATA 1,2,3.7.5,2,6,8,8,3,8,6 



LOST TREASURE MODIFICATIONS 



Minor 

1. Probability of first shark attack — line 20 

2. Grid size — lines 30, 180, 190, 460 

3. Number of woods — lines 60. 580 

4. Number of mountains -- lines 100, 590 

5. Landmarks' locations - lines 140, 150, 160 

6. Location of the treasure — line 170 

7. Movement error — lines 380, 420 

8. Amount you disturb shark — line 510 



1. Vary number and amount of treasure. 

2. Add parameters of water and/or food to maintain your energy level 

3. Hunt a moving treasure. 

4. Modify direction of movement. 

5. Add quicksand. 

6. Include landmarks placed at random that are not on the map. 

7. Randomly place treasure before each hunt. 



NOTES 




GONE FISHING 



You are going on a fishing trip. The sea 1s an 8X8 grid, forming 64 
fishing locations. You will start at the dock, square (1,1), and try to 
catch as many pounds of fish as you can. You nay move one square at a 
time horizontally or vertically by entering a north(N), south(S), east(E), 
or west(W). Entering an F allows you to fish In the same place again, and 
a B allows you to start another fishing trip Immediately. If you select a 
direction that takes you off the grid, your ship will sink. You must 
return to the dock 1n sixty moves, which Is equivalent to six hours. If 
you don't return 1n time, half of your catch will spoil. 

The chance of catching fish Is different for each square and Is 
determined at the beginning of the trip. The chance of catching fish In a 
given square will remain the same throughout the trip or will decrease 1f 
the fish are scared by a shark. The maximum number of fish that can be 
caught in each square (density) 1s also determined at the beginning of the 
simulation. This number varies from 1 to 5. The maximum number of fish 
you can catch 1n a square will decrease only If sea gulls eat some of the 
bait. The maximum weight of a fish 1n a particular square Is the product 
of the row and column; therefore, the further out you go, the bigger the 
fish. 

The longer you fish, the greater the chance of an afternoon storm 
occurring. If you hit a storm, you will lose .5 hour. One of the more 
difficult manuvers of the trip Is to fish as long as necessary to accumu- 
late a large catch without getting lost in a storm. Also, there 1s a 45 
chance that you will experience some unexpected event during each move of 
the trip. Be sure you return to the dock before six hours have elapsed. 
Your rating as a fisherman will be the number of pounds of fish you catch 
divided by five. 

You may wish to use the fishing grid on page 4.6 to record the best 
fishing spots. A small marker can be used to keep track of your location 
on the grid. 




Supple Run 



RUN 

NO BITES 

AT LOCATION 1 1 

TOTAL LBS. THIS TRIP IS 0. 

YOU HAVE FISHED FOR HOURS. 

MOVE(N,S,E,W,F,B)? E 

NO BITES 

AT LOCATION 1 2 

TOTAL LBS. THIS TRIP IS 0. 

YOU HAVE FISHED FOR .1 HOURS. 

M0VE(N.S.E.W,F,B)7 S 

YOU CAUGHT 1 FISH. 

EACH WEIGHING 2 LBS. 

AT LOCATION 2 2 

TOTAL LBS. THIS TRIP IS 2. 

YOU HAVE FISHED FOR .2 HOURS. 

M0VE(N.S.E.W,F,B)7 S 

NO BITES 

AT LOCATION 3 2 

TOTAL LBS. THIS TRIP IS 2. 

YOU HAVE FISHED FOR .3 HOURS. 

MOVE(N,S,E,U,F,B)? E 

YOU CAUGHT 4 FISH, 

EACH WEIGHING 2 LBS. 

AT LOCATION 3 3 

TOTAL LBS. THIS TRIP IS 10. 

YOU HAVE FISHED FOR .4 HOURS. 

M0VE(N,S,E,W,F,B)7 E 



NO BITES 

AT LOCATION 4 6 

TOTAL LBS. THIS TRIP IS 10. 

SEA GULLS ATE SOME OF YOUR BAIT. 

CATCH WILL BE SMALLER THIS TRIP. 

YOU HAVE FISHED FOR .8 HOURS. 

M0Vt(N,S,E.W,F,B)7 S 



YOU CAUGHT 4 FISH, 
EACH WEIGHING 15 LBS. 
AT LOCATION 4 8 
TOTAL LBS. THIS TRIP IS 155. 
YOU CAUGHT A 50 LB. SHARK. 
TOTAL LBS. THIS TRIP IS 205. 
YOU HAVE FISHED FOR 1.8 HOURS. 
MOVE{N,S,E,W,F,B)? W 



YOU CAUGHT 1 FISH, 
EACH WEI6HING 3 LBS. 
AT LOCATION 3 3 
TOTAL LBS. THIS TRIP IS 208. 
WATER SPOUT DISPLACES YOU. 
YOU ARE NOW AT LOCATION 4 5 
YOU HAVE FISHED FOR 2.6 HOURS. 
MOVE(N,S,E,W,F,B)? W 



NO BITES 

AT LOCATION 1 2 

TOTAL LBS. THIS TRIP IS 211. 

YOU HAVE FISHED FOR 3.2 HOURS. 

M0VE(N,S,E,W,F,B)7 W 

YOU ARE BACK AT THE DOCK 
AFTER 3.2 HOURS OF FISHING 
CLEAN 211 LBS. OF FISH. 
YOU RATE 42 AS A FISHERMAN. 



GONE FISHING FLOWCHART 



TO 



SET 

INITIAL 

CONDITIONS 



370 




380 



PRINT 
NO BITES 



PRINT 
RESULTS 



450 



510 



550 



PRINT 
TIME 




GONE FISHING PROGRAM 



Variables 

P(I,J) The probability of catching a fish 

D(I,J) The maximum nunber of fish 1n square (I.J), from 1 to 5 

W Weight of each fish caught, from 1 to RXC 

P The total number of pounds of fish caught at a given time 

R Row In which you are fishing 

C Column In which you are fishing 

N Number of fish caught 1n a given turn 

T Time In tenths of an hour, maximum 6 hours 

K$ Move(N,E,S,W,F,B), where N.E.S, and W are directions, F allows 

you to fish again In the same square, and B allows you to start 

the fishing trip over again 



Listing 

5 REM SET PROBABILITIES AND DENSITY 

10 DIM P(8,8),D(8,8) 

20 FOR 1-1 TO 8: FOR J-l TO 8 

30 P(I,u>.7*RND(l) 

40 D(I,J)-INT(RND(1)*5+1) 

50 NEXT J.I 

GO P(l,l)-0: P-0: R-l : Ol 



145 
150 
160 
170 
180 
190 
200 
210 
220 
230 



REM MAIN LOOP 

FOR T-0 TO 6 STEP .1 

IF RND(1)>P(R,C) OR D(R,C)<1 THEN PRINT M N0 BITES": GO TO 220 

N»IhT(RND(lj*D(R,C)+l) 

W«INT(RND(1)«R*C)+1 

P-P*N«W 

PRINT "YOU CAUGHT"; N; "FISH," 

PRINT "EACH WEIGHING"; W; "LBS.," 

PRINT "AT LOCATION"; R; C 

PRINT "TOTAL LBS. THIS TRIP IS"; P; "." 



325 REM UNEXPECTED EXPERIENCES 

330 IF RND(l)<T/60 THEN PRINT "STORM -- LOST 1/2 HOUR": T-T+.5 

340 J-INT(100*RND(1))+1 

350 IF J>4 THEN 370 

360 ON J GO SUB 600,700,800,900 



370 
380 
390 
400 
410 
420 
430 
440 
450 
460 



PRINT "YOU HAVE FISHED FOR* 
INPUT "MOVE (N.S.E.W.F.B)"; 



; T; 

MS 



"HOURS." 



IF M$-"E" THEN C-C+l 

IF M$-"N" THEN R-R-l 

IF M$-"W" THEN C-C-l 

IF M$-"S" THEN R-R+l 

IF M$-"B" THEN RUN 

IF R<1 OR R>8 OR C<1 OR C>8 THEN PRINT 

IF R-l ANO C-l THEN GO TO 500 

HEXT T 



•GROUNDED— SUNK! ' 



GO TO 550 



470 PRINT "TIME UP. THE SUN HAS SET." 

480 PRINT "HALF OF YOUR CATCH HAS SPOILED." 

490 P-P/2 



A.S 



49S REM SUMMARY OF TRIP 

500 IF T-0 THEN PRINT "STILL AT DOCK": GO TO 10 

510 PRINT "YOU ARE BACK AT THE DOCK" 

520 PRINT "AFTER"; T; "HOURS OF FISHING." 

530 PRINT "CLEAN"; P; "LBS. OF FISH." 

540 "YOU RATE"; INT(P/5); "AS A FISHERMAN." 

550 INPUT "ANOTHER FISHING TRIP(Y.N)"; X$ 

560 IF X$-"Y" THEN RUN 

570 END 

595 REM SUBROUTINES 

600 IF R+C<9 THEN RETURN 

610 PRINT "FISH SCARED BY SHARK." 

620 PRINT "NOT BITING AS OFTEN." 

630 FOR 1-1 TO 8: FOR J-l TO 8 

640 P(I.J)-P(I.J)-.l 

650 NEXT J.I 

660 RETURN 

700 PRINT "SEA GULLS ATE SOME OF YOUR BAIT." 

710 PRINT "CATCH HILL BE SMALLER THIS TRIP." 

720 FOR 1-1 TO 8; FOR J-l TO 8 

730 D(I,J)-D(i;j)-1 

740 NEXT J, I 

750 RETURN 

800 PRINT "HATER SPOUT DISPLACES YOU." 

810 R«INT(8*RND(1)+1) 

820 C»INT(8*RND(1)*1) 

830 PRINT "YOU ARE NOW AT LOCATION"; R; C 

840 T-T+.2 

850 RETURN 

900 PRINT "YOU CAUGHT A 50 LB. SHARK." 

910 P-P+50 

920 PRINT "TOTAL LBS. THIS TRIP IS"; P; "." 

930 RETURN 



GONE FISHING MODIFICATIONS 



Minor 

1. Grid size — lines 10, 20, 440, 630, 720, 810, and 820 

2. Maximum probability of catching fish 1n a square — line 30 

3. Maximum density of fish In a square — line 40 

4. Maximum time of fishing -- line 150 

5. Storm probability -- line 330 

6. Rating scale — line 540 

Major 

1. Catch different kinds of fish, such as, sharks, whales, or mermaids. 

2. Change the goal to catching the biggest fish. 

3. Use fuel to run the boat. 

4. Add a choice of hook sizes and fishing depth. 

5. Add different kinds of hazards, such as whales, reefs, UFO's. 

6. Let fishing success depend on time of day. 

7. Fix weather conditions and fishing conditions at the beginning of 
the trip. 

8. Utilize sonar devices to help locate fish. 

9. Allow ship to move In a diagonal direction. 



FISHING MAP 
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SPACE FLIGHT 

Scenario 

In this simulation, you are living In the year 2062 as the captain 
of a space ship. Your orders are to deliver medical supplies from Alpha 
at coordinates (10,10) to Beta at coordinates (80,80). Your rating as 
a space pilot will depend upon how fast you can make the trip. 

During each time Interval, you will be able to determine the 
following Information: 

1. Total time elapsed 

2. Location 1n terms of X and Y coordinates 

3. Amount of fuel left 

4. Speed 

5. The angle at which you are moving 

6. Your distance from the planet. 

To change direction or to Increase or decrease speed, you can fire 
one of two kinds of rockets: main (M) and half (H). These rockets take 
one unit and 1/2 unit of fuel, respectively. A "C" will allow you to 
coast for five time Intervals. 

Once you decide how much fuel you are going to bum, you must decide 
on the direction 1n which you will be firing the rockets. You are able 
to rotate your space ship with small thrusters as 1t drifts 1n space. The 
directions are shown below: 




270° 



Once you fire your main rocket for three or four turns to Increase 
your speed, you can conserve fuel by drifting through space. You must 
start to fire 1n the opposite direction to slow down before arriving at 
Beta. In order to meet arrival conditions, you must be within a distance 
of one and at a speed of less than one. 

You may wish to make copies of the grid at the end of this section to 
aid 1n plotting your course. If you find that you are off course, you may 
have to fire a "correction" rocket. In order to estimate the angle of 
firing, you can use a force diagram as shown below. 



Example 1: Correction 




Fire at 350° 



Course 42° 
Speed 5 



Resulting course 30° 
Speed 6 



Example 2: Retroflre 



Course 75° 
Speed 4 



F1re 255°- 



Sample Run 





DATA READOUT 


HOURS 


10 LITERS 


LOCATION 


10 10 


VELOCITY: 





DEGREES: 





D-98.995 




COMMAND(0,M,H,C)? N 


ANGLE? 45 




DATA READOUT 


.01 HOURS 


9 LITERS 


LOCATION 


10.6776 10.67 


VELOCITY: 


.952905 


DEGREES: 


45 


0-98.942 






Resulting Course 75° 
Speed 3 



DATA READOUT 
.05 HOURS 5 LITERS 
LOCATION 20.1487 20.8211 
VELOCITY: 5.0035 
DEGREES: 50 
D-84.1685 

PROBLEM SUPPORT SYSTEM 
COMMAND(O.M.H.C)? 



DATA READOUT 
.33 HOURS 1 LITERS 
LOCATION 79.1844 81.0019 
VELOCITY: .023181 
DEGREES: 58 
D-1.29189 

COMMAND(0,M,H,C)? H 
ANGLE? 315 
ARRIVEDl 

THE TRIP TOOK .33 HOURS. 
YOUR RATING IS 66. 
PLAY AGAIN? N 
OK 



SPACE FLIGHT FLOWCHART 



TO 



100 



200 



300 



350 



360 




SPACE FLIGHT PROGRAM 



Variables 




X,Y 


Location 


VX.VY 


Speed 


Z 


Angle of coast 


V 


Velocity 


T 


Tine 


D 


Distance to planet 


J 


Index for hazards 


F 


Fuel 


A 


Angle Input 


L.M 


Temporary Variables 


R 


Rating 


FT 


Coast count 


G 


Accuracy of gyros 



List ing 

10 
20 
30 

100 
110 
120 
130 
140 

200 
210 
220 
230 
240 
250 
260 
270 
280 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 



X-10: Y-10: VX-0: VY-0: Z-0: V«0 
F-10: D-98.995: P-3.1416: G-l 
FOR T»0 TO 10 STEP .01 

PRINT M DATA READOUT:": ? 

PRINT Ti "HOURS "; F; "LITERS- 

PRINT "LOCATION:"; X; Y: PRINT "VELOCITY:"; V 
PRINT Z; "DEGREES" 
PRINT "DISTANCE:"; D 

J«INT(50*RND(1M) 

IF J<6 THEN PRINT "PROBLEMS: ";. 

ON J GO SUB 230,240,250,260,270: GO TO 290 

PRINT "GYROS ANGLE ERROR": G-G+l : RETURN 

PRINT "FUEL LINE": F-F-.5: RETURN 

PRINT "LIFE SUPPORT": T-T+.05: RETURN 

PRINT "ALIENS": VX-O: VY-O: RETURN 

PRINT "METEORS.": VX»VX+RND(1 )-.5 : VY-VY+RND{1 )-.5 

RETURN 

IF F1>0 THEN Fl-Fl-1: GO TO 450 

INPUT ,, COMMAND(0,M,H.C)\ C$ 

IF C$-"M" THEN B-l: GO TO 350 

IF C$-"H" THEN B-2: GO TO 350 

IF C$-"C" THEN Fl-5 

GO TO 450 

INPUT "ANGLE"; A: A«A+(20*G*RND(1 )-10*G) 

A-A*P/180 

L-COS(A): M-SIN(A): F-F-l/B 

VX-VX+(1+.4*RND(1)-.2)*L/B 

VY«VY+(1+.4*RH0(1)-.2)*M/B 

IF VX-0 AND VY>-0 THEN Z-90: GO TO 450 

IF VX-0 AND VY<0 THEN Z-270: GO TO 450 

Z-ATN(VY/VX): Z-Z*180/P 

Z-Z+INT(10*RHD(1)): Z-INT(Z) 

IF VX<0 THEN Z-Z+180 

X-X*VX: Y-Y+VY 




530 V«SQR(VX*2+VY*2) 

540 D-SQR((X-8b)t2*(Y-80)*2) 

600 IF F<0 THEN PRINT "OUT OF FUEL": GO TO 660 

610 IF D<1 AND V<1 THEN PRINT "ARRIVED": GO TO 630 

620 NEXT T 

630 PRINT "THE TRIP TOOK"; T; "HOURS." 

640 R-200*T 

650 PRINT "YOUR RATING IS"; R; "." 

660 INPUT "PLAY AGAIN"; Y$ 

670 IF Y$-"Y" THEN RUN 

680 END 



SPACE FLIGHT MODIFICATIONS 



fnor 



Starting position — lines 10,20 

Amount of fuel -- line 20 

Time limit -- line 30 

Planets location -- lines 540, 20 

Arrival conditions — line 610 

Probability of problems — line 200 



tjor 

1. One must fire small thruster rockets to rotate ship. 

2. Have meteors hit ship. 

3. Use meteor shields. 

4. Fight aliens. 

5. Visit more than one planet. 

6. Provide planets with gravitational force. 

7. Have refueling stations. 




*-* 



135° 



180° 



225° 




270° 



100 



90 



80 



70 



60 



50 



40 



30 



20 
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FOREST FIRE 



Scenario 

A lightening storm has Ignited fires In a forest. Your task 1s to 
put out the fires and save as many trees as possible. The forest Is 
divided Into 81 sectors formed by a 9X9 grid. Each sector Is Identified 
by the number of Its row and column. The symbol, ".", represents woods, 
an "*" represents fire, and a blank space represents burnt out woods. 

The chance of an existing fire spreading to adjacent wooded areas 1s 
701. Fires last for nine turns before burning out. 

You have two weapons with which to fight the fire. You can drop 
chemicals that are designed to extinguish the fires 1n a specified sector. 
The chance that the drop will affect the fires In this sector and Its 
eight adjacent sectors 1s 501. For example. If there are six fires 
burning 1n a nine-square area, approximately three will be affected by the 
chemicals. The effect of chemicals Is to reduce the number of turns before 
the fire bums out by three. Since a fire lasts only nine turns, three 
successful chemical hits will be needed to extinguish a fire. If the fire 
has been burning for six turns, then one hit will suffice. 

The second weapon available to you 1s a backfire. To start a 
backfire, you must respond to the row Input with a zero. You will then be 
asked for a backfire row and column. The sector In which a backfire Is 
started must be wooded. This backfire will not spread and will burn out 1n 
the next turn, forming a barrier against the spread of fire. 

Your rating will be the number of trees remaining after all the fires 
are out, plus 30. 




S— pic Run 

#1 

123456789 

1 

2 

3 

4 * . 

5 * . 

6 . . . # 

7 

8 

9 

ROW? 

BACKFIRE ROW? 4 
BACKFIRE COLUMN? 7 



£4 

123456789 



* 

* . 

..*... *# 
. . . * . . ** . 
. . * 



ROW? 6 
COLUMN? 3 





#12 


123456789 


1 . . . 


** . * 


2 . . . 


** 


3 . . . 




4 . . . 






5 . * 


, 


# 


6 




_ 


7 . 




. * 


8 . . 




* . 


9 . . 


* 


. * . . 


ROW? 8 




COLUMN? 


7 





£2. 

12 3 4 5 6 7 8 9 

1 

2 

3 

4 ** . 

5 * . 

6 ... * 

7 . . * 

8 

9 

ROW? 

BACKFIRE ROW? 5 
BACKFIRE COLUMN? 7 



123456789 



* 

* . 

. * . . .+* . 

. * 



#11 

123456789 
1 . . . ** . ** 
2 . . . . *** 

3 . . . 

4 . . . 



5 . * 

6 * 

7 . * 

8 . . 

9 . . 

ROW? 6 
COLUMN? 2 



. * 
* . 



il 

12 3 4 5 

1 . . . 

2 . . . . 

3 

4 


~6 7 8 
* . 

* 


9 


5 . 
6 

7 . 

8 . . . . 

9 . . 




ROW? 6 
COLUMN? 6 






YOUR RATING 
PLAY AGAIN? 


IS 69. 





ROW? 

BACKFIRE ROW? 6 
BACKFIRE COLUMN? 7 



FOREST FIRE FLOWCHART 



10 



100 



200 



220 



230 



400 




PRINT 
GRID 



SPREAD 
FIRE 



680 



SET 

FIRE 



DETERMINE 
RATING 




FOREST FIRE PROGRAM 
Variables 



L(R.C) 


Burnt woods: 0, fire: 1-9, woods 


R 


Row 


C 


Column 


I 


Row number Increment 


J 


Column number Increment 


A 


Adjacent row 


B 


Adjacent column 


F 


Count 


T 


Temporary variable 


R 


Rating 


Listing 





10, temporary variable: 11 



10 DIM L(9,9) 

20 FOR R-l TO 9: FOR C»l TO 9 

30 L(R,C)-10 

40 NEXT C.R 

50 FOR 1-1 TO 3 

60 R-INT(9*RND(1)+1) 

70 C-INT(9*RHD(1)*1) 

80 L(R,C)-9 

90 NEXT I 

95 REM PRINT GRID 

100 PRINT " 12345678 9" 

110 FOR R«l TO 9 

120 PRINT R; " "; 

130 FOR C-l TO 9 

140 IF L(R,C)-10 THEN PRINT ".";: GO TO 170 

150 IF L(R,C)>0 AND L(R,C)<10 THEN PRINT "*";: GO TO 170 

160 PRINT " "; 

170 NEXT C 

180 PRINT: NEXT R 

195 REM INPUT ROUTINE 

200 INPUT "ROW"; R 

210 IF R<0 OR R>9 THEN 200 

220 IF R-0 THEN 330 

230 INPUT "COLUMN"; C 

240 IF C<1 OR C>9 THEN 230 

250 FOR I--1 TO 1: FOR J--1 TO 1 

260 A-R+I: B-C+J 

270 IF A<1 OR A>9 OR B<1 OR B>9 THEN 310 

280 IF L(A,B)<1 OR L(A,B)-10 THEN 310 

290 IF RND(1)>.5 THEN 310 

300 L(A,B)-L(A,B)-3 

310 NEXT J.I 

320 GO TO 400 

330 INPUT "BACKFIRE ROW"; R 

340 IF R<1 OR R>9 THEN 330 

350 INPUT "BACKFIRE COLUMN"; C 

360 IF C<1 OR C>9 THEN 350 



370 IF L(R.C)-10 THEN L(R.C)-2 

395 REM SPREAD FIRE 

400 FOR R-l TO 9: FOR C-l TO 9 

410 IF L(R,C)<1 OR L(R,C)>9 THEN 500 

420 IF L(R,C)<3 THEN 500 

430 I-INT(3*RND(1)-i; 

440 J-INT(3*RND(1)-i; 

450 A-R+I: B-OJ 

460 IF A<1 OR A>9 OR B<1 OR B>9 THEN 500 

470 IF L(A,B)<>10 THEN 500 

480 IF RND(1)<.3 THEN 500 

490 L(A,B)-11 

500 NEXT C.R 

505 REM BURN FIRE AND COUNT 

510 F-0 

520 FOR R-l TO 9 

530 FOR C-l TO 9 

540 T-L(R.C) 

550 IF T-ll THEN T-9 

560 IF T>0 AND T<10 THEN T-T-l : F-F+l 

570 L(R,C)-T 

580 NEXT C.R 

590 IF F<1 THEN 620 

600 GO TO 100 

615 REM COUNT WOODS RATING 

620 C-0 

630 FOR R-l TO 9: FOR C-l TO 9 

640 IF L(R,C)-10 THEN W-W+l 

650 NEXT C.R 

660 R-W+30 

670 IF R>100 THEN R-100 

680 PRINT "YOUR RATING IS"; R; "." 

690 INPUT "PLAY AGAIN"; Y$ 

700 IF Y$-"Y" THEN RUN 

710 END 



Minor 



Major 



FOREST FIRE MODIFICATIONS 



1. Number of beginning f1r«s — line 50 

2. Location of beginning fires — lines 60, 70 

3. Probability of putting out fire — line 290 

4. Amount fire bums out each turn -- line 300 

5. Size of backfire — line 370 

6. Probability of spread — line 480 

7. Size of spread fires — line 550 

8. Rating scale - lines 660, 670 



1. Change grid size. 

2. Randomly choose location of beginning fires. 

3. Add time to move from one place to another. 

4. Have wind speed and direction affect the spread of the fire. 

5. Include barrlors such as lakes and roads. 

6. Have some of the sectors burn faster than others. 



NAUTICAL NAVIGATION 



Scenario 



Your task 1s to navigate a sailboat that has an electronic direction 
finder to three different Islands 1n the South Pacific. You do not have 
to dock at the Islands, but only come close enough to make a visual 
sighting. The minimum sighting distance will vary from five to ten miles, 
depending upon weather conditions. 

The Islands are located at coordinates (200,300), (600,300), and 
(300,100). Your starting location will be approximately (200,200). You 
will need graph paper and an Inexpensive protractor and ruler 1n order to 
plot your course. 

Each turn you will receive Information about your bearings 1n degrees 
from each of the three Islands. For convenience, you will also receive 
the bearings from the ship to each of the Islands. The example below 
shows how the bearings are determined. If you know the bearing from two 
of the three Islands, you can locate the ship; however, there are some 
random errors In the readings, so 1t might be wise to use the readings 
from all three Islands. 



Bearing from Island #1: 317°; bearing to Island #1 : 138°. 
Bearing from island #2: 230°; bearing to island #2: 50°. 




After you locate your position, you must determine your heading and 
the length of time you wish to remain on this course. You can use the 
heading from the ship to the Island of your destination to determine the 
ship's heading. Since you are 1n a sailboat, your speed will depend on 
your direction with respect to an easterly wind. In order to make any 
progress toward the East, you must tack at either 45° or 315°. The speed 



of the sailboat as a function of Its direction 1s shown In the graph below. 



S-10-(H-90)/18 



Speed 
in m.p.h. 5 




30 60 90 120 150 180 

Degrees to the Wind (H) 



The fastest speed of ten miles per hour 1s achelved when the boat 1s 
perpendicular to the wind -- heading either directly north (90°) or south 
(270°). When the boat Is running with the wind directly behind It, Its 
speed 1s about half the maximum speed or five m.p.h. 

Once you determine the heading, you must determine the length of time 
you wish to remain on the heading or the length of time you wish to travel 
before the next navigational check. The speed at 70° 1s about 6.7 m.p.h. 
In ten hours, you would travel about 67 miles. Of course, the wind speed 
varies; so you may wish to make one or two navigational checks on a long 
run. 

You can visit the three Islands 1n any order. You must compute the 

angle and time so the end of a run 1s within five to ten miles of an Island. 

Since visibility conditions vary, you may have to wait for a turn to allow 
sighting conditions to Improve. 

Your rating as a navigator will depend on the number of navigational 
checks required and the amount of time for the trip. A good sailor should 
be able to complete the trip with a rating close to 100. 



Saraple Run 



NAVIGATION CHECK 1 






BEARING FROM 1 : 279 


TO 


99 


BEARING FROM 2: 197 


TO 


17 


BEARING FROM 3: 136 


TO 


316 


ELAPSED TIME 






HEADING? 99 






TIME? 33 






NAVIGATION CHECK 2 






BEARING FROM 1 : 97 


TO: 


277 


BEARING FROM 2: 158 


TO: 


338 


BEARING FROM 3: 108 


TO: 


288 



ELAPSED TIME 32.9694 
HEADING? 277 
TIME? 20 

NAVIGATION CHECK 3 
VISITED 1 
BEARING FROM 1: 84 
BEARING FROM 2: 179 
BEARING FROM 3: 115 
ELAPSED TIME 52.9576 
HEADING? 295 
TIME? 30 

NAVIGATION CHECK 4 
VISITED 1 
BEARING FROM 1: 296 
BEARING FROM 2: 201 
BEARING FROM 3: 117 
ELAPSED TIME 82.9246 
HEADING? 297 
TIME? 10 



400 



300 



200 



100 




ir> 



in 

o 






NAVIGATION CHECK 5 
VISITED 1 

BEARING FROM 1: 296 TO: 116 
BEARING FROM 2 : 209 TO: 29 
BEARING FROM 3: 114 TO: 294 
ELAPSED TIME 92.8834 
HEADING? 294 
TIME? 3 

NAVIGATION CHECK 6 
VISITED 1 
VISITED 3 

BEARING FROM 1 : 296 TO: 116 
BEARING FROM 2: 212 TO: 32 
BEARING FROM 3: 119 TO: 299 
ELAPSED TIME 95.8568 
HEADING? 60 
TIME? 120 



TO: 264 




TO: 359 


NAVIGATION CHECK 7 


TO: 295 


VISITED 1 




VISITED 3 




BEARING FROM 1 : 35 TO: 215 




BEARING FROM 2: 92 TO: 272 




BEARING FROM 3: 58 TO: 238 




ELAPSED TIME 215.833 




HEADING? 272 


TO: 116 


TIME? 28 


TO: 21 




TO: 297 


TRIP COMPLETED IN 243.859 HOI 



NUMBER OF NAVIGATIONAL CHECKS 7 
YOUR RATING IS 66 
PLAY AGAIN? 



WIND DIRECTION 

^ 



O 



100 



200 



300 



400 



500 



600 



700 



800 



NAUTICAL NAVIGATION PROGRAM 
Variables 



0(3) 


Set to 1 If arrived at destination 




A(3),B(3) 


Coordinates of Islands 






X.Y 


Coordinates of ship 






E 


Total elapsed time 






C 


Number of navigational checks 




^ 


L 


Angle bearing from Island 




H 


Heading of ship 






T 


Time for one leg of trip 


gjj 


IpF^ 


A.B 


Temporary variables 




Y$ 


Play again 




■^> 








HF 


Listing 






*v/ 



5 REM PLACE ISLANDS AND SHIP 

10 DIM A(3), B(3), 0(3) 

20 E-0: P-3.14159 

30 FOR 1-1 TO 3 

40 READ A,B 

50 A(I)-10*A: B(I)-10*B 

60 D(I)=0 

70 NEXT I 

80 DATA 20,30,60,30,30,10 

90 X-175+50*RND(1): Y-175+50*RN0(1) 

95 REM START MAIN LOOP 

100 FOR C-l TO 100 

110 PRINT "NAVIGATION CHECK"; C 

120 FOR 1-1 TO 3 

130 IF D(I)-1 THEN PRINT "VISITED"; I 

140 NEXT I 

150 FOR 1-1 TO 3 

160 A-A(I): B-B(I) 

170 GO SUB 600: L-L+2.5-5*RND(l) 

180 L-L+180: IF L>360 THEN L-L-360 

190 PRINT "BEARING FROM"; I; "IS"; INT(L); 

200 IF L>-180 THEN L-L-180; PRINT " TO"; INT(L) : GO TO 220 

210 IF L<180 THEN L-L+180: PRINT " TO"; INT(L) 

220 NEXT I 

225 REM INPUT 

230 PRINT "ELAPSED TIME"; E 

240 INPUT "HEADING"; H 

250 H-H+5-10*RND(l) 

260 INPUT "TIME"; T: T-ABS(T) 

270 CO«COS(H*P/180): SI-SIN(H*P/180) 

280 IF H>180 THEN H-360-H 

290 IF H<30 THEN S-0 

300 IF H>-30 AND H<90 THEN S-10+(H-90)/6 

310 IF H>90 THEN S-10-(H-90)/18 

320 S-S+2*RND(1)-1 

330 T-T+(.l*RND(l)-.05) 

340 X-X+T*S*C0 



350 Y«Y+T*S*SI 

360 E-E+T 

400 FOR I - 1 TO 3 

410 D»SQR((X-A(I)t2+(Y-B(I)t2) 

420 IF D<5+10*RND(1) THEN D(I)-1 

430 NEXT I 

440 IF D(l)*D(2)+D(3)-3 THEN GO TO 500 

450 NEXT C 

460 PRINT "EXCEED NAVIGATION CHECK": GO TO 530 

500 PRINT "TRIP COMPLETED IN"; E; "HOURS." 

510 PRINT "NUMBER OF NAVIGATION CHECKS IS"; C; ' 

520 PRINT "YOUR RATING IS"; 170-(INT(E+10*C/3)) 

530 INPUT "PLAY AGAIN"; Y$ 

540 IF Y$-"Y" THEN RUN 

550 END 

600 IF X-A AND Y>B THEN L-270: RETURN 

610 IF X-A AND Y<8 THEN L-90 : RETURN 

620 N-ABS(Y-B)/ABS(X-A) 

630 L-ATN(N) : L-180*L/P 

640 IF X>A AND Y>-B THEN L-L+180 

650 IF X<A AND Y>B THEN L-360-L 

660 IF X>A AND Y<B THEN L-180-L 

670 RETURN 



Minor 



NAUTICAL NAVIGATION MODIFICATIONS 



1. Location of Islands -- line 80 

2. Starting place of ship -- line 90 

3. Error 1n angle -- line 170 

4. Input error -- line 250 

5. Speed error — line 320 

6. Time error — line 330 

7. Sighting criteria — line 420 

8. Rating — line 520 



Major 



1. Change number of Islands. 

2. Have storms. 

3. Have wind direction change. 



NAUTICAL NAVIGATION FLOWCHART 
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BUSINESS MANAGEMENT 

Scenario 

In this simulation you manage a small factory that produces three 
different kinds of products (PI - P3). Three different kinds of raw 
materials (R1 - R3) are required to produce the products. Each product 
requires exactly two raw materials with a different subscript. For 
example, to manufacture one unit of P2, you would need a unit of R1 and 
a unit of R3. To manufacture one unit of P3, you would need a unit of 
Rl and R2. 

The cost of raw materials varies from $10 to $20 per unit. It costs 
from $1 to $9 per unit to manufacture a product from raw materials. The 
selling price of each finished product varies from $50 to $90 per unit. 
Prices of raw materials and manufacturing costs will vary by not move than 
$2 per turn. Prices of finished products will vary by not more than $5 
per turn. 

You will receive a data report at the beginning of each turn. This 
report will give you the number of units you have on hand, available cash, 
and the manufacturing costs. You can buy, manufacture, or sell each turn. 
In order to manufacture a given product, you must have enough of the 
correct kind of materials on hand. 

After twelve turns (months), the materials and/or products that you 
have on hand will be automatically sold at the current prices and your 
profit will be computed. 

Sample Run 



ITEM 


MATERIALS 


PRODUCTS 


1 


$0-$16 


$0-$72 


2 


S0-S15 


$0-$72 


3 


$0-$17 


$0-$73 


MONTH 


YOU HAVE $500 




MANUFACTURING COSTS ARE $2 


TRANSACTION O.B.M.S? B 




AMOUNT OF MATERIALS? 10 




ITEM#? 


2 




ITEM 


MATERIALS 


PRODUCTS 


1 


$0-$16 


$0-$67 


2 


$10-$16 


$0-$71 


3 


$0-$16 


$0-$73 


MONTH 1 


YOU HAVE $350 




MANUFACTURING COSTS ARE $1 


TRANSACTION O.B.M.S? 6 




AMOUNT OF MATERIALS? 10 




ITEM#? 


1 





ITEM MATERIALS 


PRODUCTS 


I $10-$18 


$0-$63 


2 $10-$17 


$0-$70 


3 $0-$18 


$0-$68 


MONTH 2 YOU HAVE $190 




MANUFACTURING COSTS ARE $2 


TRANSACTION O.B.M.S? M 




MANUFACTURE AMOUNT? 10 




ITEM!? 3 




ITEM MATERIALS 


PRODUCTS 


1 $0-519 


$0-$67 


2 $0-$15 


$0-$72 


3 $0-$18 


$10-$73 


MONTH 3 YOU HAVE $170 




MANUFACTURING COSTS ARE $2 


TRANSACTION O.B.M.S? S 




AMOUNT TO SELL? 10 




ITEM#? 3 




ITEM MATERIALS 


PRODUCTS 


1 $0-$17 


$0-$72 


2 $0-$17 


$0-$76 


3 $0-$18 


$0-$77 


MONTH 4 YOU HAVE $900 




MANUFACTURING COSTS ARE $3 


TRANSACTION O.B.M.S? 





ITEM MATERIALS 


PRODUCTS 


1 $0-$18 


$0-$71 


2 $0-$12 


$0-$62 


3 $0-$10 


$0-$68 


MONTH 12 YOU HAVE $2380 




MANUFACTURING COSTS ARE $8 


TRANSACTION O.B.M.S? 




END OF YEAR 




YOUR PROFIT IS 1880. 




PLAY AGAIN? 
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BUSINESS MANAGEMENT FLOWCHART 



10 
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^ 
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INPUT 
/TRANSACTS 



120 



130 



140 



160 



vX 500 

r BUY ^>x». 

\ 7 yS 


SUBROUTINE 




X n c ,„ 






.MANUFACTURE^ 


SUBROUTINE 










SELL >-**■ 


SUBROUTINE 




Tn 

' / TIMe\v n 







— /endj 



Variables 



Listing 
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BUSINESS MANAGEMENT PROGRAM 



Number of raw materials 

Cost of one unit of raw material 

Number of finished products 

Price of one unit of finished product ($50-$90) 

Cash on hand 

Manufacturing costs ($l-$9) per unit 

Time 

Item number 

Amount 

Input O.B.M.S 



5 REM SET PRICES 

10 DIM R{3), C(3), F(3), P(3) 

20 C-500: M-2 

30 FOR 1-1 TO 3 

40 R(I)-0: F(I)-0 

SO C(I)-INT(3*RN0(1)+15) 

60 P(I)-INT(10*RND(l)+70) 

70 NEXT I 

80 FOR T-0 TO 12 

90 GO SUB 450 

100 PRINT "MONTH"; T; "YOU HAVE"; C: PRINT: PRINT "MANUFACTURING 

COSTS ARE $ M ; M 

110 INPUT "TRANS/CTION O.B.H.S"; T$ 

120 IF T$-"B" THEN GO SUB 500 

130 IF T$«"M" THEN GO SUB 600 

140 IF T$-"S" THEN GO SUB 700 

150 GO SUB 300 

160 NEXT T 

165 REM SUMMARY 

170 PRINT "END OF YEAR" 

180 FOR 1-1 TO 3 

190 C-C+R(I)*C(I) 

200 C«C*F(I)*P(I) 

210 NEXT I 

220 C-C-500 

230 PRINT "YOUR PROFIT IS"; C; "." 

240 INPUT "PLAY AGAIN"; Y$ 

250 IF Y$-"Y" THEN RUN 

260 END 

295 REM CHANGE PRICE SUBROUTINE 

300 FOR 1-1 TO 3 

310 J-INT(5*RND(l)-2) 

320 J-C(I)*J 

330 IF J<10 OR J>20 THEN 310 

340 C(I)-J 

350 J-INT(ll*RND(l)-5) 

360 J-P(I)+J 



370 IF J<50 OR J>90 THEN 350 

380 P(I)-J 

390 NEXT I 

400 J-INT(5*RND(l)-2) 

410 J-M+J 

420 IF J<1 OR J>9 THEN 400 

430 M-J 

440 RETURN 

445 REM OUTPUT DATA 

450 PRINT "ITEM MATERIALS PRODUCT": PRINT 

460 FOR M TO 3 

470 PRINT I; " -; R(I); ■ $■; C(I); ■ "j F(I); ■ $"; P(I):PRINT 

480 NEXT I 

490 RETURN 

495 REM BUY MATERIALS 

500 INPUT "AMOUNT OF MATERIALS"; A 

510 INPUT "ITEM!"; N 

520 IF N<1 OR N>3 THEN PRINT "ERROR": RETURN 

530 OC-A*C(N) 

540 IF C<0 THEN 570 

550 R(N)«R(N)+A 

560 RETURN 

570 OOA*C(N) 

580 PRINT "INSUFFICIENT FUNDS" 

590 RETURN 

595 REM MANUFACTURE 

600 INPUT "MANUFACTURE AMOUNT"; A: INPUT "ITEM!"; N 

610 IF N<0 OR N>3 THEN PRINT "ERROR": RETURN 

620 C-C-A*M 

630 IF C<0 THEN PRINT "INSUFFICIENT FUNDS": C-C+A*M: RETURN 

640 FOR 1-1 TO 3 

650 IF I«N THEN 680 

660 R(I)-R(I)-A 

670 IF R(I)<0 THEN PRINT "MATERIALS GONE": R(I)-R(I)*A: C«C*A*M: 

RETURN 

680 NEXT I: F(N)-F(N)*A: RETURN 

695 REM SELL 

700 INPUT "AMOUNT TO SELL"; A: INPUT "ITEM#"; N 

710 IF N<0 OR N>3 THEN PRINT "ERROR": RETURN 

720 F(N)-F(N)-A 

730 IF F(N)<0 THEN 760 

740 C-C+A*P(N) 

750 RETURN 

760 F(N)-F(N)+A 

770 PRINT "PRODUCTS GONE" 

780 RETURN 



Minor 



&.6 



BUSINESS MANAGEMENT MODIFICATIONS 



1. Starting amounts -- lines 20, 50, 60 

2. Number of turns -- line 80 

3. Amount raw materials vary -- line 310 

4. Range of raw materials -- line 330 

5. Amount products vary -- line 350 

6. Range of products — line 370 

7. Amount manufacturing costs vary --line 400 

8. Range of manufacturing costs -- line 420 



Major 



1. Increase number of raw materials and finished products. 

2. Have a storage fee. 

3. When you buy, prices increase. 

4. When you sell, prices decrease. 

5. Borrow money with Interest. 

6. Add random events, such as strikes, shortage of materials, 
f 1 res , no demand . 

7. Provide names for raw materials and products. 
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RARE BIROS 



Scenario 



In this simulation you attempt to Identify as many birds as possible 
1n a ten hour period. First, you must choose a place to watch birds. It 
must be in the swamp (S), the water (W), the desert (D), or the forest 
(F). Then you must choose a tine of day -- morning (M), or evening (E). 
Finally, you must choose to look up 1n the sky -- high (H) or on the 
ground -- low (L). There are sixteen different birds that can be Identified 
The birds are classified as small or big, yellow or blue, shortbeaked or 
long beaked, and female or male. 

After you have selected a place to watch birds, you will receive 
one clue about the bird and the length of time it took you to spot it. 
If no bird 1s spotted in a two-hour period, you may try a new place. 
After receiving your clue, you then have an opportunity to Identify the 
bird. You should refer to the bird watching chart to determine where the 
birds are seen and their specific characteristics. The birds with the 
larger numbers are observed more frequently. 

If your first Identification Is not correct, you will have an 
opportunity to try again. Each time you try, however, one point will be 
subtracted from your final rating. If you identify a bird that you have 
identified correctly before, you will be notified of the fact and may try 
a new place. Your final rating is determined by multiplying ten times the 
number of birds Identified and subtracting one for each Incorrect Identifi- 
cation. 




9.2 



Sample Run 



PLACE S.W.D.F7 S 
WHEN N.E? E 
WHERE H.L? L 
THE BIRO IS YELLOW 
TIME LAPSE: 1.Z8 
TOTAL TIME: 1.28 
IDENTIFY 1-16? 12 

NOT CORRECT IDENTIFICATION 
IDENTIFY 1-16? 12 
A NEW ONE! 

PLACE S.W.D.F? W 
WHEN M,E? E 
WHERE H,L? H 
THE BIRD IS BIG 
TIME LAPSE: .18 
TOTAL TIME: 1.46 
IDENTIFY 1-16? 11 

NOT CORRECT IDENTIFICATION 
IDENTIFY 1-16? 9 
A NEW ONE! 



PLACE S.W.D.F? 
WHEN M.E? E 
WHERE H.L? L 
NO SIGHTINGS 



TIME UP 




YOU SAW BIRD! 


1 




6 




9 




12 




15 




16 


YOUR RATING IS 


57 


PLAY AGAIN? 






10 



200 
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RARE BIRDS ROWCHART 



SET 

DATA 



INPUT 

CONDITIONS , 



400 



490 



500 



570 



WHICH 
BIRDS MEET 
CONDITIONS? 



610 




COUNT 



RATING 



Variables 




B(I.J) I 1s bird (1-16); J 1s characteristic (1-14 


N$(I] 


) Name characteristic 


P(D 


Probability of sighting 


K, I. J.Q.N Temporary variables 


L$ 


Place 


T$ 


When 


A$ 


Where 


I 


Lapsed time for one sighting 


H 


Total time 


?! 


Number of Identifications 


Number of birds Identified 


Listing 




5 


REM SET DATA 


10 


H-0: DIM B(16,14). 1(16), N$(8), P(16) 


20 


PRINT "PLEASE WAIT": FOR I»l TO 16 


30 


B(I,14)-0 


40 


P(I)-1/(17-I) 


50 


READ N 


60 


FOR J»12 TO 1 STEP -1 


70 


Q-INT(N/2) 


80 


B(I,J)-2*(N/2-Q) 


90 


N-Q 


100 


NEXT J 


110 


NEXT I 



120 DATA 2128, 1121, 594, 355, 3220 

130 DATA 2725, 2454, 1703, 1528, 1017 

140 DATA 2042, 3067, 3516, 3773, 4030, 4031 



150 


FOR 1-1 TO 8 


160 


READ NS(I): NEXT I 


170 


DATA BIG. SMALL 


180 


DATA BLUE, YELLOW 


190 


DATA LONG BEAKED, SHORT BEAKED, FEMALE, MALE 


195 


REM INPUT PLACE 


200 


FOR 1-1 TO 16: I(I)«0: NEXT 


210 


INPUT "PLACE S.W.D.F"; L$ 


220 


INPUT "WHEN M.E"; T$ 


230 


INPUT "WHERE H.L"; A$ 


260 


IF LS'-S" THEN 1(1 >«1 
IF L$""H" THEN I(2)-l 


270 


280 


IF L$-"D" THEN I(3)-1 


290 


IF L$-"F" THEN I(4)«l 


300 


IF T$-"M" THEN l{5)-l 


310 


IF T$-"E M THEN I(6)-l 


320 


IF T$-"S" THEN I(7)-l 


330 


IF T$«"G" THEN I(8)-1 


340 


FOR M TO 16: B(I,13)-0: NEXT I 


350 


FOR 1-1 TO 16: FOR J-l TO 8 



360 IF B(I,J)«I(J) AND B(I,J)»0 THEN 390 

370 NEXT J 

380 B(I.13)«1 

390 NEXT I 

395 REM FIND BIROS 

400 FOR 1-1 TO 2 STEP .02 

410 J-INT(16*RND{1)+1) 

420 IF B(J,13)<>1 THEN 440 

430 IF RND(1)<P(J) THEN 460 

440 NEXT I 

450 PRINT "NO SIGHTINGS": H-H+I: GO TO 200 

460 H-H+I 

470 K-INT(4*RND(1M) 

480 N-B(J,K+8) 

490 PRINT "THE BIRD IS"; N$(2*K-N): PRINT "TIME LAPSE:"; I: PRINT 
"TOTAL TIME:"; H 

495 REM INPUT ID 

500 INPUT "IDENTIFY 1-16"; I 

510 IF I»J THEN 530 

520 PRINT "NOT CORRECT IDENTIFICATION": Cl-Cl+1: GO TO 500 

530 IF B(J,14)-1 THEN PRINT "ALREADY SPOTTED": GO TO 550 

540 PRINT "A NEW ONE!": B{J,14)-1 

550 IF H>10 THEN 570 

560 GO TO 200 

570 PRINT "TIME UP" 

580 FOR 1-1 TO 16 

590 IF B(I,14)-1 THEN PRINT "YOU SAW BIRD #"; I: Bl-Bl+1 

600 NEXT I 

610 PRINT "YOUR RATING IS"; 10*B1-C1; "." 

620 INPUT "PLAY AGAIN"; Y$ 

630 IF Y$-"Y" THEN RUN 

640 END 



RARE BIRDS MODIFICATIONS 



Minor 



1. Probability of sighting « line 40 

2. Time Interval per turn -- line 400 

3. Total time — line 550 

4. Rating formula -- line 610 



1. Increase number of birds. 

2. Increase characteristics of birds. 

3. Allow a bird to be identified more than once. 

4. Have some extremely rare birds. 

Note: The birds' characteristics are stored 1n decimal format in state- 
ments 120, 130, and 140. Statements 50-100 convert, the decimal 
numbers into binary and store the binary digits 1n B(I,J). 
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BIRO WATCHING CHART 



B 
I 
R 



PLACE 


WHEN 


WHERE 


S 
M 

A B 
L I 
L G 


Y 
E 

L B 
L L 

U 
W E 


S B L B 

H E E 
A N A 
R K G K 
T E - E 
- 


F 

E 
M M 
A A 
L L 
E E 


1 


S 


E 


L 


S 


Y 


s 


M 


2 


If 


E 


H 


S 


Y 


s 


F 


3 


D 


E 


L 


S 


Y 




M 


4 


F 


E 


H 


S 


Y 




F 


5 


SW 


H 


L 


S 


B 


s 


M 


6 


S D 


M 


H 


s 


R 


s 


F 


7 


S F 


M 


L 


s 


B 




M 


8 


WO 


N 


H 


s 


B 




F 


9 


W F 


ME 


HL 


k 


Y 


s 


M 


10 


DF 


HE 


HL 


B 


Y 


s 


F 


11 


WDF 


ME 


HL 


B 


Y 




M 


12 


S OF 


ME 


HL 


B 


Y 




F 


13 


SW F 


M 


HL 


B 


B 


s 


N 


14 


SWO 


M 


HL 


B 


B 


s 


F 


15 


SWDF 


M 


HL 


B 


B 




M 


16 


SWDF 


M 


HL 


B 


B 




F 
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DIAMOND THIEF 



Scenario 

An expensive diamond 1s stolen from a museum. Your job, as the 
detective assigned to the case, 1s to determine who stole the diamond and 
at what time. You deduce the solution by studying the responses made by 
five different suspects, one of whom 1s guilty. Your rating 1s determined 
by how quickly you can Identify the thief. 

The five suspects were wandering through a nine room museum from one 
p.m. to twelve midnight. They never stayed 1n the same room for two 
consecutive hours, although they may have returned to the same room more 
than once. 

You determine who you want to question and a specific time from one 
to twelve. The suspect responds by giving the following Information: 

1. Suspect's location at specified time 

2. Whether or not the diamond was seen In room #5 at the 
specified time 

3. Who was with the suspect 

4. Who the suspect saw in adjacent rooms 

There Is a catch, however. The Innocent suspects can forget the exact 
room they were 1n and may name adjacent rooms 5* of the time instead. 
There Is also a 5% chance that Innocent people will make errors In naming 
people 1n the room with them or people whom they saw. The thief makes 
errors 50X of the time. Any statement made about room #5 or any statement 
made about the diamond is always true. 

The diamond was stolen at the end of the time Interval; therefore, 

the thief or people 1n room #5 with the thief will claim to have seen the 

diamond during the time it was stolen. Of course, after the diamond was 

stolen, suspects will not have seen It. 

When you think you know who the thief 1s and the time it was stolen, 
then you should enter a zero 1n response to "suspect?". If you get either 
the thief or the time correct, you will get another chance, but will lose 
a ten question penalty on the final rating. 
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Sample Run 



RUN 

PLEASE WAIT 

SOMEONE STOLE THE DIAMOND!! 

QUESTION 1 

SUSPECT (1-5)? 1 

TIME? 6 

SUSPECT 1 AT TIME 6 

I WAS IN ROOM 8 

I WAS WITH 3 

I SAW 4 

QUESTION 2 
SUSPECT (1-5)? 4 
TIME? 6 

SUSPECT 4 AT TIME 6 
I WAS IN ROOM 9 
I SAW 1 

QUESTION 3 
SUSPECT (1-5)7 2 
TIME? 6 
I WAS IN ROOM 6 
I SAW 4 



QUESTION 4 
SUSPECT (1-5)? 
I WAS IN ROOM 1 

QUESTION 5 
SUSPECT (1-5)? 
TIME? 7 
I WAS IN ROOM 9 
I WAS WITH 2 
I SAW 4 




QUESTION 15 
SUSPECT (1-5)? 4 
TIME? 4 
I WAS IN ROOM 5 
I SAW THE DIAMOND 
I WAS WITH 3 

QUESTION 16 
SUSPECT (1-5)? 
GUILTY SUSPECT? 4 
TIME OF CRIME? 4 



YOU GOT "EM 

THE THIEF IS 4 AT TIME 4. 

YOUR RATING IS 84 

PLAY AGAIN? 
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DIAMOND THIEF ROWCHART 



10 



130 



SET ROOMS 

AND START 

POSITION 



GENERATE 
WALKS 



240 



PICK 
THIEF 



290 



410 




800 



INPUT 
THIEF 
TIME 



840 




DIAMOND THIEF 



Varlabl 


es 




A ( 


I.J) 
I.J) 


Adjacent rooms 


L( 


Room where person I 1s located at J time 


T 




Time of theft 


D 




Thief 


P 




Probability 


s 




Suspect 


G 




Time of guess 


A 




Temporary variable 



I.J.K Indices 



Listing 



10 DIM A{9,3), L(5,12): Q-l : PRINT "WAIT" 

20 FOR 1*1 TO 9 

30 FOR J-l TO 3 

40 READ A 

50 A(I,J)*A 

60 NEXT J, I 

70 DATA 2.4,0,1,3,0,2.6,0 

80 DATA 1,5,7,4.6,8,3,5,9 

90 DATA 4,8,0,5,7,9,6,8,0 

100 FOR 1-1 TO 5 

110 L(I,1)-INT(RND(1)*9+1) 

120 NEXT I 

130 FOR I«2 TO 12 

140 FOR J"l TO 5 

150 K«INT(3*RND(1)+1) 

160 L(J,I)-A(L{J.I-1).K) 

170 IF L(J,I)-0 THEN 150 

180 NEXT J.I 

190 T«INT(12*RND(1M) 

200 FOR 1-1 TO 5 

210 IF L(I,T)«5 THEN 240 

220 NEXT I 

230 GO TO 190 

240 D»INT(5*RHD(1H) 

250 IF L(D,T)<>5 THEN 240 

260 PRINT "SOMEONE STOLE THE DIAMOND." 

270 REM START MAIN LOOP 

280 PRINT: PRINT "QUESTION"; Q 

290 INPUT "SUSPECT"; S 

300 IF S<1 THEN 800 

310 IF S>5 THEN 290 

320 INPUT "TIME"; G 

330 IF G<1 OR G>12 THEN 320 

340 PRINT: PRINT "SUSPECT"; S; "AT TIME"; G; ":" 

350 IF S-D THEN P-.5 

360 IF SoD THEN P«.05 

370 IF RND(1)>P OR L(5,6)-5 THEN A-L(S.G): GO TO 410 

380 I-INT(3*RND(1)+1) 



390 A-A(L(S,G),I) 

400 IF A«0 OR A-5 THEN 380 

410 PRINT: PRINT "I MAS IN ROOM"; A 

420 IF A<>5 THEN 450 

430 IF T<G THEN PRINT " I DID NOT SEE THE DIAMOND!": GO TO 450 

440 PRINT "I SAW THE DIAMOND." 

450 IF RND(1)<P THEN 510 

460 FOR 1-1 TO 5 

470 IF I-S THEN 500 

480 IF L(S,G)«L(I,G) THEN 500 

490 PRINT "I HAS WITH"; I 

500 NEXT I : GO TO 540 

510 I-INT(7*RND(1)*1): IF I-S THEN 510 

520 IF I<6 THEN PRINT "I WAS WITH"; I 

540 IF RND(1)<P THEN 640 

550 FOR 1-1 TO 3 

560 A«A(L(S,G),I) 

570 IF A-0 THEN 610 

580 FOR J-l TO 5 

590 IF L(J,G)-A THEN PRINT "I SAW"; J 

600 NEXT J 

610 NEXT I 

620 GO TO 700 

640 J-INT(10*RND(1)+1) 

650 IF J<5 THEN PRINT "I SAW"; J 

700 IF RND(1)>P THEN 770 

.710 K-INT(10*RND{1)+1) 

720 IF K<6 AND K«J THEN PRINT "I SAW"; K 

770 Q-Q+l : GO TO 280 

800 INPUT "GUILTY SUSPECT"; S 

810 IF S<1 OR S>5 THEN 800 

820 INPUT "TIME OF CRIME"; G 

830 IF G<1 OR G>12 THEN 820 

840 IF S-D AND G-T THEN PRINT "YOU GOT 'EM!": GO TO 870 

850 IF S-D OR G-T THEN PRINT "PARTLY RIGHT": Q-Q+l 0: GO TO 280 

860 PRINT "BETTER GIVE UP": Q-Q+100 

870 PRINT "THE THIEF IS"; D; "AT TIME"; T 

900 PRINT "YOUR RATING IS"; 100-Q 

910 INPUT "PLAY AGAIN"; Y$ 

920 IF Y$-"Y" THEN RUN 

930 END 



Minor 



DIAMONO THIEF MODIFICATIONS 



1. Probability of thief lying -- line 350 

2. Probability of Innocent suspect lying -- line 360 



Major 



1. Change room design. 

2. Have an accomplice. 

3. Jewel Is hidden after It Is stolen. 

4. A guard Is roaming around the museum as well. 

5. Give suspects and rooms actjal names, for example, Mr. Smith Is 
In the Red Room. 



»u.6 



MUSEUM FLOOR PLAN 
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